﻿Imports DTO
Imports BLL
Public Class MCadCliente
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim objUsuario As UsuarioDTO

        If Session("login") IsNot Nothing Then
            objUsuario = Session("login")

            If objUsuario.pTipo.ToUpper = "ADM" Then
                ddlTipoUsuario.Visible = True
                lblTipoUsuario.Visible = True
            Else
                ddlTipoUsuario.Visible = False
                lblTipoUsuario.Visible = False
            End If
        Else
            ddlTipoUsuario.Visible = False
            lblTipoUsuario.Visible = False
        End If
    End Sub

    Protected Sub btnCadastrar_Click(sender As Object, e As EventArgs) Handles btnCadastrar.Click
        Dim objCliente As New ClienteDTO
        Dim objTelefone As New TelefoneDTO
        Dim objCelular As New TelefoneDTO
        Dim objEndereco As New EnderecoDTO
        Dim objUsuario As New UsuarioDTO

        Dim bllCliente As ClienteBLL
        Dim bllUsuario As UsuarioBLL

        Try
            bllCliente = New ClienteBLL
            bllUsuario = New UsuarioBLL

            objCliente.pCpf = txtCPF.Text
            objCliente.pEmail = txtEmail.Text
            objCliente.pNome = txtNome.Text
            objCliente.pSenha = txtSenha.Text


            objCelular.pDdd = txtDddCelular.Text
            objCelular.pNumero = txtCelular.Text

            objTelefone.pDdd = txtDddTelefone.Text
            objTelefone.pNumero = txtTelefone.Text

            objEndereco.pBairro = txtBairro.Text
            objEndereco.pCep = txtCEP.Text
            objEndereco.pCidade = txtCidade.Text
            objEndereco.pComplemento = txtComplemento.Text
            objEndereco.pEstado = txtEstado.Text
            objEndereco.pLogradouro = txtEndereco.Text
            objEndereco.pNumero = txtNr.Text

            objCliente.pCelular = objCelular
            objCliente.pTelefone = objTelefone
            objCliente.pEndereco = objEndereco

            objUsuario.pUsuario = txtEmail.Text
            objUsuario.pSenha = txtSenha.Text

            If ddlTipoUsuario.SelectedValue = "ADM" Then
                objUsuario.pTipo = "ADM"
            ElseIf ddlTipoUsuario.SelectedValue = "CLI" Then
                objUsuario.pTipo = "CLI"
            Else
                objUsuario.pTipo = "CLI"
            End If


            If bllCliente.ValidaCPF(objCliente.pCpf) Then
                bllCliente.Incluir(objCliente)
                bllUsuario.Incluir(objUsuario)
            Else
                lblErro.Text = "CPF inválido"
            End If
        Catch ex As Exception
            lblErro.Text = Convert.ToString(ex)
        End Try

        Limpar()
        lblConfirmacao.Text = "Cadastro Realizado com Sucesso!"
    End Sub

    Sub Limpar()
        txtBairro.Text = ""
        txtCelular.Text = ""
        txtCEP.Text = ""
        txtCidade.Text = ""
        txtComplemento.Text = ""
        txtCPF.Text = ""
        txtDddCelular.Text = ""
        txtDddTelefone.Text = ""
        txtEmail.Text = ""
        txtEndereco.Text = ""
        txtEstado.Text = ""
        txtNome.Text = ""
        txtNr.Text = ""
        txtRepSenha.Text = ""
        txtSenha.Text = ""
        txtTelefone.Text = ""
    End Sub
End Class